home *** CD-ROM | disk | FTP | other *** search
- object WINDOWSCMD: TWINDOWSCMD
- Left = 260
- Top = 118
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- AutoScroll = False
- Caption = 'Windows Commander 3.02'
- ClientHeight = 396
- ClientWidth = 632
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'Helv'
- Font.Style = [fsBold]
- KeyPreview = True
- Menu = MainMenu
- Scaled = False
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- OnKeyUp = FormKeyUp
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object RightPanel: TPanel
- Left = 313
- Top = 0
- Width = 309
- Height = 351
- BevelOuter = bvNone
- TabOrder = 2
- OnResize = RightPanelResize
- object RightInfo: TPanel
- Tag = 240
- Left = 56
- Top = 2
- Width = 217
- Height = 21
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- TabOrder = 0
- end
- object RightRoot: TButton
- Tag = 260
- Left = 273
- Top = 1
- Width = 18
- Height = 22
- Caption = '\'
- TabOrder = 1
- TabStop = False
- OnClick = RootClick
- end
- object RightParent: TButton
- Tag = 261
- Left = 291
- Top = 1
- Width = 18
- Height = 22
- Caption = '..'
- TabOrder = 2
- TabStop = False
- OnClick = ParentClick
- end
- object RightPath: TMyPanel
- Tag = 250
- Left = 1
- Top = 25
- Width = 308
- Height = 20
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- Color = clInactiveCaption
- Font.Color = clInactiveCaptionText
- Font.Height = -11
- Font.Name = 'Helv'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- OnClick = RightPathClick
- OnMouseUp = PathMouseUp
- end
- object RightHeader: THeaderClick
- Left = 0
- Top = 41
- Width = 308
- Height = 17
- Sections.Sections = (
- #0'41'#0'Name'
- #0'27'#0'Ext'
- #0'33'#0'Size'
- #0'36'#0'Date'
- #0'29'#0'Attr')
- TabOrder = 4
- OnSizing = HeaderSizing
- OnSized = HeaderSized
- OnSectionClick = HeaderSectionClick
- SelectedHeader = -1
- Arrow = 0
- end
- object RightSize: TMyPanel
- Tag = 280
- Left = 1
- Top = 332
- Width = 308
- Height = 17
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- TabOrder = 5
- OnClick = RightPathClick
- OnPaint = SizePaint
- end
- object RightDrives: TMyComboBox
- Tag = 271
- Left = 1
- Top = 1
- Width = 54
- Height = 21
- TabStop = False
- Style = csDropDownList
- DropDownCount = 9
- ItemHeight = 13
- Sorted = True
- TabOrder = 6
- OnChange = DrivesChange
- OnDropDown = DrivesDropdown
- OnExit = LeftDrivesExit
- OnKeyDown = DrivesKeyDown
- OnCloseup = DrivesCloseup
- OnRButtonUp = DrivesRButtonUp
- end
- end
- object LeftPanel: TPanel
- Left = 0
- Top = 0
- Width = 309
- Height = 351
- BevelOuter = bvNone
- TabOrder = 1
- OnResize = LeftPanelResize
- object LeftInfo: TPanel
- Tag = 140
- Left = 56
- Top = 2
- Width = 217
- Height = 21
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- TabOrder = 0
- end
- object LeftRoot: TButton
- Tag = 160
- Left = 273
- Top = 1
- Width = 18
- Height = 22
- Caption = '\'
- TabOrder = 1
- TabStop = False
- OnClick = RootClick
- end
- object LeftParent: TButton
- Tag = 161
- Left = 291
- Top = 1
- Width = 18
- Height = 22
- Caption = '..'
- TabOrder = 2
- TabStop = False
- OnClick = ParentClick
- end
- object LeftPath: TMyPanel
- Tag = 150
- Left = 1
- Top = 25
- Width = 308
- Height = 16
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- Color = clActiveCaption
- Font.Color = clCaptionText
- Font.Height = -11
- Font.Name = 'Helv'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- OnClick = LeftPathClick
- OnMouseUp = PathMouseUp
- end
- object LeftHeader: THeaderClick
- Left = 0
- Top = 41
- Width = 308
- Height = 17
- Sections.Sections = (
- #0'41'#0'Name'
- #0'27'#0'Ext'
- #0'33'#0'Size'
- #0'36'#0'Date'
- #0'29'#0'Attr')
- TabOrder = 4
- OnSizing = HeaderSizing
- OnSized = HeaderSized
- OnSectionClick = HeaderSectionClick
- SelectedHeader = -1
- Arrow = 0
- end
- object LeftSize: TMyPanel
- Tag = 180
- Left = 1
- Top = 332
- Width = 308
- Height = 17
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- TabOrder = 6
- OnClick = LeftPathClick
- OnPaint = SizePaint
- end
- object LeftDrives: TMyComboBox
- Tag = 171
- Left = 1
- Top = 1
- Width = 54
- Height = 21
- TabStop = False
- Style = csDropDownList
- DropDownCount = 9
- ItemHeight = 13
- Sorted = True
- TabOrder = 5
- OnChange = DrivesChange
- OnDropDown = DrivesDropdown
- OnExit = LeftDrivesExit
- OnKeyDown = DrivesKeyDown
- OnCloseup = DrivesCloseup
- OnRButtonUp = DrivesRButtonUp
- end
- end
- object BottomPanel: TPanel
- Left = 0
- Top = 351
- Width = 622
- Height = 48
- BevelOuter = bvNone
- TabOrder = 0
- OnResize = BottomPanelResize
- object idbList: TButton
- Tag = 903
- Left = 1
- Top = 25
- Width = 89
- Height = 22
- Caption = 'F3 View'
- TabOrder = 0
- TabStop = False
- OnClick = idbListClick
- end
- object idbEdit: TButton
- Tag = 904
- Left = 90
- Top = 25
- Width = 89
- Height = 22
- Caption = 'F4 Edit'
- TabOrder = 1
- TabStop = False
- OnClick = idbEditClick
- end
- object idbCopy: TButton
- Tag = 905
- Left = 179
- Top = 25
- Width = 88
- Height = 22
- Caption = 'F5 Copy'
- TabOrder = 2
- TabStop = False
- OnClick = idbCopyClick
- end
- object idbRenmov: TButton
- Tag = 906
- Left = 267
- Top = 25
- Width = 89
- Height = 22
- Caption = 'F6 RenMov'
- TabOrder = 3
- TabStop = False
- OnClick = idbRenmovClick
- end
- object idbMkdir: TButton
- Tag = 907
- Left = 356
- Top = 25
- Width = 89
- Height = 22
- Caption = 'F7 MkDir'
- TabOrder = 4
- TabStop = False
- OnClick = idbMkdirClick
- end
- object idbDelete: TButton
- Tag = 908
- Left = 445
- Top = 25
- Width = 89
- Height = 22
- Caption = 'F8 Delete'
- TabOrder = 5
- TabStop = False
- OnClick = idbDeleteClick
- end
- object idbExit: TButton
- Tag = 1
- Left = 534
- Top = 25
- Width = 87
- Height = 22
- Caption = 'Alt+F4 Exit'
- ModalResult = 1
- TabOrder = 6
- TabStop = False
- OnClick = idbExitClick
- end
- object CurDir: TMyPanel
- Tag = 300
- Left = 1
- Top = 2
- Width = 236
- Height = 21
- Alignment = taRightJustify
- BevelOuter = bvLowered
- Caption = 'c:\windows>'
- TabOrder = 7
- end
- object CmdLine: TComboBox
- Tag = 1001
- Left = 238
- Top = 2
- Width = 385
- Height = 21
- TabStop = False
- DropDownCount = 5
- ItemHeight = 13
- MaxLength = 259
- TabOrder = 8
- OnChange = CmdLineChange
- OnDblClick = CmdLineDblClick
- OnDropDown = CmdLineChange
- OnEnter = CmdLineChange
- OnExit = CmdLineChange
- OnKeyDown = CmdLineKeyDown
- OnKeyPress = CmdLineKeyPress
- end
- end
- object LeftList: TMyListBox
- Tag = 170
- Left = 1
- Top = 58
- Width = 307
- Height = 271
- ExtendedSelect = False
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Helv'
- Font.Style = [fsBold]
- ItemHeight = 16
- MultiSelect = True
- ParentFont = False
- Style = lbOwnerDrawFixed
- TabOrder = 3
- OnClick = ListClick
- OnDblClick = DoubleClick
- OnEnter = LeftListEnter
- OnExit = ListExit
- OnKeyUp = ListKeyUp
- OnMouseMove = ListMouseMove
- OnChange = ListChange
- OnKeyPress1 = FormKeyPress
- TrueColumnWidth = 0
- OnRButtonDown = ListRButtonDown
- OnRButtonUp = ListRButtonUp
- OnLButtonDown = ListLButtonDown
- OnLButtonUp = ListLButtonUp
- end
- object RightList: TMyListBox
- Tag = 270
- Left = 314
- Top = 58
- Width = 307
- Height = 271
- ExtendedSelect = False
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Helv'
- Font.Style = [fsBold]
- ItemHeight = 16
- MultiSelect = True
- ParentFont = False
- Style = lbOwnerDrawFixed
- TabOrder = 4
- OnClick = ListClick
- OnDblClick = DoubleClick
- OnEnter = RightListEnter
- OnExit = ListExit
- OnKeyUp = ListKeyUp
- OnMouseMove = ListMouseMove
- OnChange = ListChange
- OnKeyPress1 = FormKeyPress
- TrueColumnWidth = 0
- OnRButtonDown = ListRButtonDown
- OnRButtonUp = ListRButtonUp
- OnLButtonDown = ListLButtonDown
- OnLButtonUp = ListLButtonUp
- end
- object InPlaceEdit: TInEdit
- Left = 128
- Top = 136
- Width = 121
- Height = 21
- ParentColor = True
- TabOrder = 5
- Text = 'InPlaceEdit'
- OnGoingOff = InPlaceEditGoingOff
- end
- object SplitPanel: TPanel
- Left = 310
- Top = 0
- Width = 3
- Height = 351
- Cursor = crHSplit
- BevelOuter = bvNone
- TabOrder = 6
- OnMouseDown = SplitPanelMouseDown
- OnMouseMove = SplitPanelMouseMove
- OnMouseUp = SplitPanelMouseUp
- end
- object MainMenu: TMainMenu
- Left = 4
- Top = 88
- object Files: TMenuItem
- Caption = '&Files'
- ShortCut = 0
- object FilesChangeattributes: TMenuItem
- Tag = 502
- Caption = '&Change attributes...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object FilesPack: TMenuItem
- Tag = 508
- Caption = '&Pack...'
- ShortCut = 32884
- OnClick = MenuDispatch
- end
- object FilesUnpackspecificfiles: TMenuItem
- Tag = 509
- Caption = '&Unpack specific files...'
- ShortCut = 32888
- OnClick = MenuDispatch
- end
- object Testarchives1: TMenuItem
- Tag = 518
- Caption = 'T&est archive(s)'
- ShortCut = 41080
- OnClick = MenuDispatch
- end
- object FilesAssociatewith: TMenuItem
- Tag = 507
- Caption = '&Associate with...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object FilesVersioninfo: TMenuItem
- Tag = 510
- Caption = 'P&roperties...'
- ShortCut = 32781
- OnClick = MenuDispatch
- end
- object MenuItemID503: TMenuItem
- Tag = 503
- Caption = 'Calculate &occupied space...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object FilesPrint: TMenuItem
- Tag = 504
- Caption = 'Prin&t'
- ShortCut = 16504
- OnClick = MenuDispatch
- end
- object TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object FilesQuit: TMenuItem
- Tag = 24340
- Caption = '&Quit'
- ShortCut = 32883
- OnClick = MenuDispatch
- end
- end
- object Mark: TMenuItem
- Caption = '&Mark'
- ShortCut = 0
- object MarkSelectgroup: TMenuItem
- Tag = 521
- Caption = 'Select &group...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object MarkUnselectgroup: TMenuItem
- Tag = 522
- Caption = '&Unselect group...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object MarkSelectall: TMenuItem
- Tag = 523
- Caption = '&Select all'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object MarkUnselectall: TMenuItem
- Tag = 524
- Caption = 'U&nselect all'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object MarkInvertSelection: TMenuItem
- Tag = 525
- Caption = '&Invert Selection'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object MarkComparedirectories: TMenuItem
- Tag = 533
- Caption = '&Compare directories'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object MarkMarknewerhidesamefiles: TMenuItem
- Tag = 534
- Caption = '&Mark newer, hide same files'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- end
- object Commands: TMenuItem
- Caption = '&Commands'
- ShortCut = 0
- object CommandsCDtree: TMenuItem
- Tag = 500
- Caption = 'CD &tree...'
- ShortCut = 32889
- OnClick = MenuDispatch
- end
- object CommandsSearch: TMenuItem
- Tag = 501
- Caption = '&Search...'
- ShortCut = 32886
- OnClick = MenuDispatch
- end
- object CommandsVolumelabel: TMenuItem
- Tag = 505
- Caption = '&Volume label...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object CommandsSystemInformation: TMenuItem
- Tag = 506
- Caption = 'System &Information...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object CommandsRunDOS: TMenuItem
- Tag = 511
- Caption = 'Run &DOS'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object CommandsNetworkconnections: TMenuItem
- Tag = 512
- Caption = '&Network connections...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object MenuItemID513: TMenuItem
- Tag = 513
- Caption = 'Disc&onnect network drives...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object MenuItemID514: TMenuItem
- Tag = 514
- Caption = 'Share ¤t directory...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object CommandsUnsharedirectory: TMenuItem
- Tag = 515
- Caption = '&Unshare directory...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object CommandsSourceTarget: TMenuItem
- Tag = 531
- Caption = 'Source&<->Target'
- ShortCut = 16469
- OnClick = MenuDispatch
- end
- object CommandsTargetSource: TMenuItem
- Tag = 532
- Caption = 'Target&=Source'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- end
- object Show: TMenuItem
- Caption = 'Sho&w'
- ShortCut = 0
- object ShowBrief: TMenuItem
- Tag = 301
- Caption = '&Brief'
- ShortCut = 16496
- OnClick = MenuDispatch
- end
- object ShowFull: TMenuItem
- Tag = 302
- Caption = '&Full'
- ShortCut = 16497
- OnClick = MenuDispatch
- end
- object ShowTree: TMenuItem
- Tag = 303
- Caption = '&Tree'
- ShortCut = 16503
- OnClick = MenuDispatch
- end
- object QuickView1: TMenuItem
- Tag = 304
- Caption = '&Quick view panel'
- ShortCut = 16465
- OnClick = MenuDispatch
- end
- object a1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object ShowAllFiles: TMenuItem
- Tag = 312
- Caption = '&All Files'
- GroupIndex = 1
- ShortCut = 16505
- OnClick = MenuDispatch
- end
- object ShowPrograms: TMenuItem
- Tag = 311
- Caption = '&Programs'
- GroupIndex = 1
- ShortCut = 16506
- OnClick = MenuDispatch
- end
- object Show1: TMenuItem
- Tag = 313
- Caption = '*.*'
- GroupIndex = 1
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object ShowCustom: TMenuItem
- Tag = 314
- Caption = '&Custom...'
- GroupIndex = 1
- ShortCut = 16507
- OnClick = MenuDispatch
- end
- object TMenuItem
- Caption = '-'
- GroupIndex = 1
- ShortCut = 0
- end
- object ShowName: TMenuItem
- Tag = 321
- Caption = '&Name'
- GroupIndex = 2
- ShortCut = 16498
- OnClick = MenuDispatch
- end
- object ShowExtension: TMenuItem
- Tag = 322
- Caption = 'E&xtension'
- GroupIndex = 2
- ShortCut = 16499
- OnClick = MenuDispatch
- end
- object ShowTime: TMenuItem
- Tag = 324
- Caption = 'Ti&me'
- GroupIndex = 2
- ShortCut = 16500
- OnClick = MenuDispatch
- end
- object ShowSize: TMenuItem
- Tag = 323
- Caption = '&Size'
- GroupIndex = 2
- ShortCut = 16501
- OnClick = MenuDispatch
- end
- object ShowUnsorted: TMenuItem
- Tag = 325
- Caption = '&Unsorted'
- GroupIndex = 2
- ShortCut = 16502
- OnClick = MenuDispatch
- end
- object TMenuItem
- Caption = '-'
- GroupIndex = 2
- ShortCut = 0
- end
- object ShowReversedorder: TMenuItem
- Tag = 330
- Caption = '&Reversed order'
- GroupIndex = 3
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object ShowRereadsource: TMenuItem
- Tag = 540
- Caption = 'R&eread source'
- GroupIndex = 3
- ShortCut = 16466
- OnClick = MenuDispatch
- end
- end
- object Configuration: TMenuItem
- Caption = 'C&onfiguration'
- ShortCut = 0
- object ConfigurationConfiguration: TMenuItem
- Tag = 490
- Caption = '&Options...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object ConfigurationButtonbar: TMenuItem
- Tag = 498
- Caption = '&Button bar...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object ConfigurationSaveposition: TMenuItem
- Tag = 493
- Caption = '&Save position'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- end
- object Start1: TMenuItem
- Caption = '&Start'
- ShortCut = 0
- end
- object Help: TMenuItem
- Break = mbBarBreak
- Caption = '&Help'
- ShortCut = 0
- object HelpIndex: TMenuItem
- Tag = 610
- Caption = '&Index'
- ShortCut = 112
- OnClick = MenuDispatch
- end
- object HelpKeyboard: TMenuItem
- Tag = 620
- Caption = '&Keyboard'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object HelpRegistrationInfo: TMenuItem
- Tag = 630
- Caption = '&Registration-Info'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- object TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object HelpAboutWindowsCommander: TMenuItem
- Tag = 690
- Caption = '&About Windows Commander...'
- ShortCut = 0
- OnClick = MenuDispatch
- end
- end
- end
- end
-